Private Sub cmdSubmit_Click()
  ' Get the path of the Excel file
    Dim strFilePath As String
    strFilePath = GetFileDialog(EnumFileExtensions.ExcelFiles)
      
    ' Check if a file was selected
    If strFilePath <> "Cancelled" Then
        ' Show status label
        Me!lblStatus.Visible = True
        Me!lblStatus.Caption = "الرجاء الانتظار ... "
         DoCmd.Requery
        ' Clear TableData
        DeleteAllRecords

        ' Import data from Excel
        ExcelDataImport strFilePath
        DoCmd.Requery
        
        ' Add Or Update Yor Table
        
        ' Hide the status label or reset any visual indicator
        Me!lblStatus.Visible = False
    Else
         
        ' User canceled the file selection
        MsgBox "File selection canceled", vbExclamation
DoCmd.Requery
    End If
End Sub